home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWSRC35.ZIP / FUNC.H < prev    next >
C/C++ Source or Header  |  1993-10-10  |  30KB  |  666 lines
  1. /* File IBMTERM.CPP: */
  2.  
  3. extern void single_step_box(NODE *the_line);
  4. extern void checkqueue(void);
  5. extern void emptyqueue(void);
  6. extern void do_help(char *arg);
  7. extern void checkwindow(int *x,int *y, int *w, int *h);
  8.  
  9. extern void gr_mode(); /*routine*/
  10. extern void ibm_prepare_to_draw_turtle(); /*routine*/
  11. extern void ibm_done_drawing_turtle(); /*routine*/
  12. extern void nop(); /*routine*/
  13. extern void init_ibm_memory(); /*routine*/
  14. extern BOOLEAN check_ibm_stop(); /*routine*/
  15. extern void term_init_ibm(); /*routine*/
  16. extern void ibm_gotoxy(int x, int y); /*routine*/
  17. extern void ibm_clear_text(); /*routine*/
  18. extern void ibm_clear_screen(); /*routine*/
  19. extern void ibm_plain_mode(); /*routine*/
  20. extern void ibm_bold_mode(); /*routine*/
  21. extern void erase_graphics_top(); /*routine*/
  22. extern void save_pen(pen_info *p); /*routine*/
  23. extern void restore_pen(pen_info *p); /*routine*/
  24. extern void plain_xor_pen(); /*routine*/
  25. extern void ibm_pen_down(); /*routine*/
  26. extern void ibm_pen_xor(); /*routine*/
  27. extern void ibm_pen_erase(); /*routine*/
  28. extern int get_ibm_pen_mode(); /*routine*/
  29. extern void set_ibm_pen_mode(int m); /*routine*/
  30. extern int get_ibm_pen_width(); /*routine*/
  31. extern void set_ibm_pen_width(int w); /*routine*/
  32. extern void set_pen_pattern(char *pat); /*routine*/
  33. extern void set_list_pen_pattern(NODE *arg); /*routine*/
  34. extern void get_pen_pattern(char *pat); /*routine*/
  35. extern NODE *Get_node_pen_pattern(); /*routine*/
  36. extern NODE *Get_node_pen_mode(); /*routine*/
  37. extern void label(char *s); /*routine*/
  38. extern void logofill(); /*routine*/
  39. extern void erase_screen(); /*routine*/
  40. extern void t_screen(); /*routine*/
  41. extern void s_screen(); /*routine*/
  42. extern void f_screen(); /*routine*/
  43. extern FIXNUM mickey_x(); /*routine*/
  44. extern FIXNUM mickey_y(); /*routine*/
  45. extern BOOLEAN Button(); /*routine*/
  46. extern void tone(FIXNUM pitch, FIXNUM duration); /*routine*/
  47. extern FIXNUM t_height(); /*routine*/
  48. extern FLONUM t_half_bottom(); /*routine*/
  49. extern FLONUM t_side(); /*routine*/
  50. extern void check_scroll(void); /*routine*/
  51.  
  52. /* File WRKSP.CPP: */
  53.  
  54. extern NODE *make_procnode(NODE *lst, NODE *wrds, short min, short df, short max); /*routine*/
  55. extern NODE *get_bodywords(NODE *proc, NODE *name); /*routine*/
  56. extern NODE *name_arg(NODE *args); /*routine*/
  57. extern NODE *ltext(NODE *args); /*routine*/
  58. extern NODE *lfulltext(NODE *args); /*routine*/
  59. extern NODE *define_helper(NODE *args, BOOLEAN macro_flag); /*routine*/
  60. extern NODE *ldefine(NODE *args); /*routine*/
  61. extern NODE *ldefmacro(NODE *args); /*routine*/
  62. extern NODE *to_helper(NODE *args, BOOLEAN macro_flag); /*routine*/
  63. extern NODE *lto(NODE *args); /*routine*/
  64. extern NODE *lmacro(NODE *args); /*routine*/
  65. extern NODE *lmake(NODE *args); /*routine*/
  66. extern NODE *llocal(NODE *args); /*routine*/
  67. extern int bck(int flag); /*routine*/
  68. extern void contents_map(NODE *sym); /*routine*/
  69. extern void zigzag(NODE *nd); /*routine*/
  70. extern NODE *merge(NODE *a, NODE *b); /*routine*/
  71. extern NODE *mergesort(NODE *nd); /*routine*/
  72. extern NODE *get_contents(); /*routine*/
  73. extern NODE *lcontents(); /*routine*/
  74. extern NODE *lburied(); /*routine*/
  75. extern NODE *lprocedures(); /*routine*/
  76. extern NODE *lnames(); /*routine*/
  77. extern NODE *lplists(); /*routine*/
  78. extern NODE *one_list(NODE *nd); /*routine*/
  79. extern void three_lists(NODE *arg, NODE **proclst, NODE **varlst, NODE **plistlst); /*routine*/
  80. extern NODE *po_helper(NODE *arg, int just_titles); /*routine*/
  81. extern NODE *lpo(NODE *arg); /*routine*/
  82. extern NODE *lpot(NODE *arg); /*routine*/
  83. extern NODE *lerase(NODE *arg); /*routine*/
  84. extern NODE *bury_helper(NODE *arg, int flag); /*routine*/
  85. extern NODE *lbury(NODE *arg); /*routine*/
  86. extern NODE *ltrace(NODE *arg); /*routine*/
  87. extern NODE *lstep(NODE *arg); /*routine*/
  88. extern NODE *unbury_helper(NODE *arg, int flag); /*routine*/
  89. extern NODE *lunbury(NODE *arg); /*routine*/
  90. extern NODE *luntrace(NODE *arg); /*routine*/
  91. extern NODE *lunstep(NODE *arg); /*routine*/
  92. extern NODE *ledit(NODE *args); /*routine*/
  93. extern int lendedit(void); /*routine*/
  94. extern NODE *lthing(NODE *args); /*routine*/
  95. extern NODE *lnamep(NODE *args); /*routine*/
  96. extern NODE *lprocedurep(NODE *args); /*routine*/
  97. extern NODE *check_proctype(NODE *args, int wanted); /*routine*/
  98. extern NODE *lprimitivep(NODE *args); /*routine*/
  99. extern NODE *ldefinedp(NODE *args); /*routine*/
  100. extern NODE *lmacrop(NODE *args); /*routine*/
  101. extern NODE *lcopydef(NODE *args); /*routine*/
  102.  
  103. /* File GRAPHICS.CPP: */
  104.  
  105. extern NODE *lscrunch();
  106. extern double pfmod(double x, double y); /*routine*/
  107. extern FLONUM cut_error(FLONUM n); /*routine*/
  108. extern FIXNUM round(FLONUM n); /*routine*/
  109. extern void draw_turtle(); /*routine*/
  110. extern void check_x_high(); /*routine*/
  111. extern void check_x_low(); /*routine*/
  112. extern void draw_turtle_helper(); /*routine*/
  113. extern void right(FLONUM a); /*routine*/
  114. extern NODE *numeric_arg(NODE *args); /*routine*/
  115. extern NODE *lright(NODE *arg); /*routine*/
  116. extern NODE *lleft(NODE *arg); /*routine*/
  117. extern void forward(FLONUM d); /*routine*/
  118. extern void forward_helper(FLONUM d); /*routine*/
  119. extern int wrap_right(FLONUM d, FLONUM x1, FLONUM y1, FLONUM x2, FLONUM y2); /*routine*/
  120. extern int wrap_left(FLONUM d, FLONUM x1, FLONUM y1, FLONUM x2, FLONUM y2); /*routine*/
  121. extern int wrap_up(FLONUM d, FLONUM x1, FLONUM y1, FLONUM x2, FLONUM y2); /*routine*/
  122. extern int wrap_down(FLONUM d, FLONUM x1, FLONUM y1, FLONUM x2, FLONUM y2); /*routine*/
  123. extern NODE *lforward(NODE *arg); /*routine*/
  124. extern NODE *lback(NODE *arg); /*routine*/
  125. extern NODE *lshowturtle(); /*routine*/
  126. extern NODE *lhideturtle(); /*routine*/
  127. extern NODE *lshownp(); /*routine*/
  128. extern NODE *lsetheading(NODE *arg); /*routine*/
  129. extern NODE *lheading(); /*routine*/
  130. extern NODE *vec_arg_helper(NODE *args, BOOLEAN floatok); /*routine*/
  131. extern NODE *vector_arg(NODE *args); /*routine*/
  132. extern NODE *pos_int_vector_arg(NODE *args); /*routine*/
  133. extern FLONUM towards_helper(FLONUM x, FLONUM y, FLONUM from_x, FLONUM from_y); /*routine*/
  134. extern NODE *ltowards(NODE *args); /*routine*/
  135. extern NODE *lpos(); /*routine*/
  136. extern NODE *lhome(); /*routine*/
  137. extern void cs_helper(int centerp); /*routine*/
  138. extern NODE *lclearscreen(); /*routine*/
  139. extern NODE *lclean(); /*routine*/
  140. extern void setpos_helper(NODE *xnode, NODE *ynode); /*routine*/
  141. extern NODE *lsetpos(NODE *args); /*routine*/
  142. extern NODE *lsetxy(NODE *args); /*routine*/
  143. extern NODE *larc(NODE *args); /*routine*/
  144. extern NODE *lsetx(NODE *args); /*routine*/
  145. extern NODE *lsety(NODE *args); /*routine*/
  146. extern NODE *lwrap(); /*routine*/
  147. extern NODE *lfence(); /*routine*/
  148. extern NODE *lwindow(); /*routine*/
  149. extern NODE *lfill(); /*routine*/
  150. extern NODE *llabel(NODE *arg); /*routine*/
  151. extern NODE *ltextscreen(); /*routine*/
  152. extern NODE *lsplitscreen(); /*routine*/
  153. extern NODE *lfullscreen(); /*routine*/
  154. extern NODE *lpendownp(); /*routine*/
  155. extern NODE *lpenmode(); /*routine*/
  156. extern NODE *lpencolor(); /*routine*/
  157. extern NODE *lpixel(); /*routine*/
  158. extern NODE *lfloodcolor(); /*routine*/
  159. extern NODE *lscreencolor(); /*routine*/
  160. extern NODE *lpensize(); /*routine*/
  161. extern NODE *lpenpattern(); /*routine*/
  162. extern NODE *lpendown(); /*routine*/
  163. extern NODE *lpenup(); /*routine*/
  164. extern NODE *lpenpaint(); /*routine*/
  165. extern NODE *lpenerase(); /*routine*/
  166. extern NODE *lpenreverse(); /*routine*/
  167. extern NODE *lclearpalette(); /*routine*/
  168. extern NODE *lbitload(NODE *arg); /*routine*/
  169. extern void cnv_strnode_string(char *textbuf,NODE *arg); /*routine*/
  170. extern void do_execution(char *string); /*routine*/
  171. extern NODE *lsettimer(NODE *arg); /*routine*/
  172. extern NODE *lcleartimer(NODE *arg); /*routine*/
  173. extern NODE *lbitsave(NODE *arg); /*routine*/
  174. extern NODE *lbitcut(NODE *arg); /*routine*/
  175. extern NODE *lbitcopy(NODE *arg); /*routine*/
  176. extern NODE *lbitpaste(); /*routine*/
  177. extern NODE *lbitmode(void); /*routine*/
  178. extern NODE *lmachine(void); /*routine*/
  179. extern NODE *lsetbitmode(NODE *arg); /*routine*/
  180. extern NODE *lbitindex(void); /*routine*/
  181. extern NODE *lsetbitindex(NODE *arg); /*routine*/
  182. extern NODE *lbitfit(N